EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


B11 


**F ILE**1D**L BAST NP 


aaaa 

aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaaaaaa 
aaaqgaaaaa 
22222222 
22222222 
zz 
22 

zz 
22222222 


—— 
oe) 


— 


(aS fg bog Beg Rad tag ad ad ang Re De Ed Bg 
a Pe Og Oe Bd es ed et Os Og 


Seen) 
— 


td ot 


Ce ee ee ee 
ed ee ed ee ee ee ees 


= 

poe 

— 

=< 

mn 

mn 

mn et) 

mn nw 

nn mn 

mn mn 

mn mw 

nn nn 
MNNWM 
NNNM 
<«<aaaaa 
<«a<aaaaa 


MMMM 
NANMNM 
mw 
mn 
nn 
mn 
mn 
mn 
nn 
mn 
<«<aaaacc 
<a<<aaaca 
<< 
=< 
=< 
<<a 
Seana 
@ 
@ 


LLLLLLLLLL 
LLLLLLLLLL 


nn NNMM 
nn nn 
Mn nn 
nn mn 
nn mn 
mn nn 
nn mn 
MMMM 
AMNM 
—— 
ken 
tt ad Oe eg a ag Og es Og 
Sand omg ae Eig feed Sa eet Eng ng pod a et 
Chen 
eee 
add dd II HS 
aot I I I 


LLLLLLLLLL 
LLLLLLLLLL 


C11 
, IBSAST IN_PROG = Inquire if AST in progress 15-SEP-1984 23:48:00 VAX/VMS Macro v04-00 Page 
able of cintents 


(¢ 3 DECLARATIONS 
(3) LIBSAST_IN_PROG = is AST in progress? 


D 11 
LIBSAST_IN_PROG - Inquire if AST in progress 15-SEP-1 AX/VMS Macro v04-00 P 1 
1-004 : phe b-8Ep-198¢ 11:08:59 LCTORTE. SRCSCIBASTINE.MAR;1 22°C] 


TITLE Li8shs1. IN_PROG - “a if AST in er Paces 
IDENT /1-004/~ File: LIBASTINP.MAR Edit DG1004 


] 
)| 
| 
| 
} | 
RAHAT AAAAAARAARAARAAAARAAARAAARARAARAARAAAAAAARAAAEARAAARAAAAAARAARAAAEE | 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


a? fo "acchebt gE on gt |.ICENSE AND MAY BE USED AND COP are 


-* ® 
-* ® 
-* * 
* * 
-* ® 
:f * 
-* e 
-* * 
+ 
;@ RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
® 

;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
‘* CORPORATION. * 
® 

;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
- SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
-* * 
* + 


° 
° 
° 
° 
° 
° 
° 
° 
° 
e 
° 
° 
. 
; 
° 
° 
° 
: 
° 
° 
Py 
3 LARRBRSAAASAAALAASLALASALALASALASAASEAASA SAR ARA ARERR RASA SARS AR RRAR AAAS EASED SD 
: 


; ABSTRACT: 
Return SUCCESS (1) if an AST is active in the current mode. 
; ENVIRONMENT: ALL Modes, AST Reentrant 


; AUTHOR: Jonathan M. Taylor, CREATION DATE: 23-Jan-78 
; MODIFIED BY: 
ag Ts as pa VERSION 0 
-001 - Update version number one Cop right notice. The edit number 
on ve pipe 0 was 4. GeNOV 


; 1-00 Add *’."* to the PSECT a tog SBS 21-DEC-78 
sosiee on 18yr"* flag number for the SGETJPI using LIBSGET_EF. 


; 1-00 
: SBL 
; 1-004 - Use 


4-Nov~1 
GETJPIW to ensure synchronous operation. DG 26-Oct-1983 


SOOOCOCOCOOSOCOOSSOSSSSSSOSSSOSOSOCOSCOSCOSOOOSOOCOSOOCOSOOSOOOOOOOOO 
OOWDNA UES WIN O ODNAUE WIN S(O OODNAU EWN O OONAUE WIN OOONOUSWwh— 


DEB BPE EEF EAN NAIOP PONINPINIPUNINI I 2 PP OOO es ae ee 


Oooooooooo 


j 

Bag 

3 FACILITY: General Utility Library 

: 
| 
| 
| 
| 
| 
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SAP AAAPAA AAA AMIN 
SOOO NA NEW CO OONOUES UP 


-00 Page 
66-SEP-1984 LIBRT iL18 BASTINP.MAR;1 . 3) 


-SBTTL DECLARATIONS 


EXTERNAL SYMBOLS: 


INCLUDE FILES: 


> MACROS: 


SJPIDEF ; define system service constants 


: EQUATED SYMBOLS: 


none 


OWN STORAGE : 
none 


: PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


ef 


F 
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1-004 LIBSAST. IN. PROG = 48 ART in progress?  6=SEP-1984 4:38:98 LIBRTL.SRCJLIBASTINP.MAR;1 > (3) Tat 
3 ‘ -SBTTL LIBSAST_IN_PROG = is AST in progress? 
p++ 
8 ; FUNCTIONAL DESCRIPTION: | 
6 0; Call system service GETJPI to get access modes with active 
91 ; ASTs. Pick off the bit corresponding to the current-mode 
ob 38 3 (taken from the PSL) and return 
33 9¢ ; CALLING SEQUENCE: 
099 38 ; at_ast_level.wl.v = LIBSAST_IN_PROG (Cefn.rl.rJ) 
44 4 ; INPUT PARAMETERS: 
00000004 4448 100 efn = 4 ; Longword event flag number to use for S$GETJPI, 
000 101 3 passed by reference. Optional. If omitted, 
4 138 ; LIBSGET_EF is called to allocate a number. 
$009 182 ; IMPLICIT INPUTS: 
0000 105; 
0000 196 3 NONE 
0000 107 ; 
0000 108 ; OUTPUT PARAMETERS: 
0000 109 ; 
0000 110; NONE 
0000 111; 
0000 136 3 IMPLICIT OUTPUTS: 
0000 113; 
0000 114; NONE 
0000 115; 
0000 116 ; FUNCTION VALUE: 
0000 117; 
44 113 : Returns SUCCESS (1) if we're currently as AST level, otherwise 0. 
0000 120; 
0000 121 ; SIDE EFFECTS: 
0000 1 § ; é 
0000 125; May signal LIBS_FATERRLIB 
ee 
0000 0900 126 .ENTRY LIBSAST_IN_PROG, “M<> 
D4 000 1 CLRL -(SP) 3; set up a one-item item-List 
7¢ O66 1 8 LRQ -(SP) : been er ewe w enews + 
08 AE OF $ 129 PUSHAL 8(SP) SITMLST:$_0300_!___4___! | 
03000004 8F DD 000 130 PUSHL #<JPIS_ASTACT@16>+4 ; APNG spentone. toon+ | 
QOOF 131 ; Se caeene ctl P34 
OOF 1 § : Em, ot cpceatentiie o- -<9 
OOF 1 ; Sncistuaal _ eaennaet 1 <=# 
51 5E D OOF 134 MOVL SP, R1 
6c 9 Big 135 TSTB (AP) ; Zero arguments? 
14 136 BEQL GET_EF : Yes, call LIBSGET_EF 
04 AC Be 18 137 TSTL efnTAP) ; Omitted by reference? 
 —— 1 1 8 BEQL GET_EF ; Yes colt LIBSGET_EF 
1B (1 S$GETIPIW ; EFN=aefn(AP), ITMLST=(R1) 
40 29 9 ¢ 140 BLBC RO, ERROR 3 Signal if error | 
1 2 141 RB ; Skip to common processing 
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00000000 ' GF 1 
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50 E 
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00000000 ' GF 7 
18 50 
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00000000'GF 03 
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GET_EF: 


ERROR: 


a kk a kk kk dt 
SSSI NSS DADA AA AAD TTT BS 
NOUS WN 0 ODNAUES WN OOD NOA UE WWN OOO NOUS wr 
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z2=<= 


M 
T 


ze 
; Come here if we need to allocate an event flag number 


CLRL (SP) ; Make a place for the event flag number 
PUSHAB (SP) ; Address of efn 
CALLS #1, G*LIBSGET_EF ; Get an efn 
LBC RO, ERROR 3; Exit if unsuccessful 
MOVL SP, RO 3 Move address of EFN 
SGETJPIW_S EFN=(RO), ITMLST=(R1) 
LBC RO : branch if not successful 
PUSHAB (SP) Address of efn 


ALLS #1, G*LIBSFREE_EF : Free the efn 
BLBC RO, ERROR 3 signet if error 
BRB OK ; Skip to finish up 


s@ 
<< here for final processing 


MOVL -4(FP), RO ; RO = bitvector by mode 
MOVPSL R1 

ROTL #8, R1, R1 

BICB #4, Ri ; R1<0:7> = current mode 
MNEGB R11, R1 3; R1 = 0,-1,-2,- 

nore R1, RO, RO 3 get proper flag into lsb 
PUSHL RO ; Push original error code 


-(SP) : Zero FAO parameters 
PUSHL /#LIBS_FATERRLIB 
CALLS #3, G*LIBSSTOP Can't return 


But have signalled PC in this module 
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Symbol fabfe 
$$T1 = o 
EFN = 4 
ERROR FR 8s 

T_EF 4R 
JPIS_ASTACT 09 
LIBSAST_IN_ PROG 00 RG f 
LIBSFREE_EF eeereeee xX 
LIBSGET EF eteereee YX 
LIB$STOP aeeeeree =X 
LIBS_FATERRLIB eeeeeeee KX 0 
OK 00000069 R 02 
SYSSGETJPIW eeeeeeee G Oe 

poets enema nea nwa + 
! Psect synopsis ! 

PSECT name Allocation PSECT No. 

ABS. 00000000 ( 0.) 00 ¢ 0.) NOPIC 

S$ 00000000 9-3 1 ¢ 1.) NOPIC 
_LIBSCODE 00000091 ¢« 145.) 02 ¢ 2.) PIC 

poe ocmeaeseanea woman eonmease 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.05 60:00:00.8] 
Command processing 113 ss Shs BE Se 53 
Pass 1 133 0:00:01.19 ee HH 
Ty a BREEN HE B0 
Symbol table output 3 0:00: 8:09 §0:00;00:01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 es Se BFR 08-88 
Assembler run totals 329 00:00:01.99 00:00:13.72 


The working set Limit was 900 pages. 
B40 . 9 pag 


"G=SEP=1986 11:08:09 


USR CON ABS 
USR CON ABS 
USR CON REL 


ytes (17 pages) of virtual memory were used to buffer the intermediate code. 


There were 10 


11 pages of virtual memory were used to define 10 macros. 


Macro Library name 


_$255$DUA28:(SYSLIBISTARLET.MLB;2 


200 GETS were required to define 7 macros. 


There were no errors, warnings or information messages. 


pages of symbol table space allocated to hold 120 non-local and 0 local symbols. 


177 source Lines were read in Pass 1, producing 15 object records in Pass 2. 


LCL N 
LCL NOS 
LCL 


AX/VMS Macro V04-00 
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OSHR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD WRT NOVEC BYTE 
SHR EXE RD NOWRT NOVEC LONG 
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MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBASTINP/OBJ=O0BJ$:LIBASTINP MSRC$:LIBASTINP/UPDATE=(ENH$:LIBASTINP) 


PMENT CORPORATION | 
AND PROPRIETARY 


AH-BT13A-SE 
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